AAAAAAAAA 

AAAAAAAAA 

AAAAAAAAA 
AAA AAA 
AAA ABR 
AAA AAA 
AAA ALA 
AAA Bib 
slat AA 
Aba AAA 
AAA AAA 
RRA AAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAR AAA 
AKA ABA 
ALB AAA 
RAR AAA 
AAA AAA 
bhh ABA 
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00 oo 68 88 JJ OD DD RR we Il vv vv EE 

00 00 8B JJ OD DD RR fee Il vv vv €€ 
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00 00 88 66 JJ DD DD RR fete Il vv vv €€ 

00 00 88888888 JJ OD DD RRRRRRRR 11 vv VV EEEEEEEE 

00 00 88868888 JJ OD DD RRRRRRRR li VV VV EEEEEEEE 

00 00 68 BB JJ JJ OD DD RR RR e | vv vv EE 

00 oO 68 BB JJ JJ 0D DD RR RR Il vv vv EE 

00 00 68 BB JJ JJ 0D DD RR fhe I] vv vv EE eeee 

00 00 6B BB JJ JJ 0D DD RR bebe Il vv ov EE sews 
000000 BBBBBBBB JIJSIIS DDDDDDDD Hie bee II1111 vv EEEEEEEEEE aces 
000000 6BBEBBBB JJJIIJ DDDDDDDD whe bbe 111111 vv EEEEEEEEEE Sees 
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tL 1] SS 

Li 1] $$ 
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LL 11 $SSSSS 
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Facility: VAX/VMS Analyze Facility, Object File Analyzer 

! Abstract: sh module is the main control for the analysis of object 
es. 

' Environment: 


14-Sep-19 


*OBJDRIVE = Drive Analysis of Object Files’ 
module objdrive ( 
ident="v04-000") = begin 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

DIGITAL FOULPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 

THIS SOFTWARE IS FURNISHED UNDER A ENSE AND MAY BE USED AND COPIED 
IN ACCORD € OF SUCH LICENS AND WITH THE 
CE. THIS SOFTWARE OR ANY OTHER 
E R OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON, NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
conpokat thn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


5B 


' Author: Paul C. Anagnostopoulos, Creation Date: 6 January 1981 
! Modified By: 


v03-002 DGB0069 Donald G. Blair 03-Jul-1984 
Allow the /NOOUTPUT qualifer. 


v03-001 PCA1011 Paul Cc, Anognostopoutos 11-Apr-1983 
Change the message prefix to ANLOBJ$_ to ensure that 
message symbols are unique across alT ANALYZEs. This 
is necessitated by the new merged message files. 
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Libraries and Requires: 
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library ‘starlet’; 
require ‘objexereq’; 


; Table of Contents: 


PPA 


NOW ES toe 


ERLLRSSSSSSS 


forward routine 
anl$object: novaiue, 
anl$object_positionals: novalue, 
ani$object2: novalue, 
anl$object_record_line: novalue, 
anl$object_statisfics: novalue; 


LSSELESES 


SSS STSSCS 
OONOWVEP WOO 
me ee a a ee 8 oe a 


ooo 


wn 


70 


i 
External References: 


external routine 
an\$error_count, 
an\$format_error, 
anl$format_hex, 
anl$format_Line, 
anl$get_object_record, 
anl$interact, 
anl$object_eom, 
anl$ob ect_osd. 
anl$object_ 
anl$object_ink, f 
ani$object_record_size, 
anl$object_tir, — 
anl$open_next_object_file, 
anl$prepare_réport_fiTle, 
anl$report_line, 
an\$report_page, 
cli$get_value: addressing_mode(general), 
cli$present: addressing_mode(general); 


! 
: Global Variables: 
i The following variable tells people whether this is an interactive session, 


global : ; 
anl$gb_interactive: byte; 
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i 
Own Variables: 
i 


The following variables contain various positional qualifier values. 
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n 3 
OB JOR IVE OBJDRIVE = Drive Analysis of Object Files 15-Sep-1984 23:38:00 Pawel Bliss-32 V4.0-74 Page 
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543 type_flag: bitvector(256). 
st range: victor eat 
54 ! The following flag tells us whether we are currently ‘within’ a module. 


° 


within module: byte initial (false); 


' The following two vectors keep track of the count of each object record 
! type and the total bytes for each type. 


: 


record count: vectorlobj$c_maxrectyp+!,long] 
_Initial(rep o i$c maxrectyp+l of (0)), 
byte_total: vectorlobj$c_maxrectyp+!,long 
inftial(rep obj$c_maxrectyp+! of (0)); 
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Esbttl "ANLSOBJECT = Control Analysis of Object Files’ 
'¢ 


Pid 


Functional Description: : : 
HL routine is responsible for controlling the analysis of object 
es. 
Formal Parameters: 
Implicit Inputs: 
global data 
global data 


Returned Value: 


i 

i 

i 

: 

' 

Implicit Outputs: 
i 

i 

none 
Side Effects: 
Raa 


global routine anl$object: novalue = begin 


own 
own_described_buffer(report_file_spec,nmam$c_maxrss); 


local 
status: Long. 
type_fiag: bitvector([256], 
range: vector(2,longj; 


: Get the global qualifiers that can be specified for ANALYZE/OBJECT. 
! The first one is the /INTERACTIVE qualifier. 
anl$gb_interactive = cli$present(describe("INTERACTIVE')); 


! If the user wants us to generate output, determine the name of the 
! report file. Note that if this is an interactive session, we always 


lalolelelelelejelelelelelelelelelealelelelelelelelelelelelelelalelelelalalel elo] ala) 
Wahab sh Ab Ab Ab Ab Ah Ab Ab Ab Ab Ab AL AD AL Ab AD AD ah ah Ah Ah ah hh hh Ah ah ah ah dh Ah Ah ah eh hh al el al al 


DOO OOO OOO OW WWW WWW WOO NIN NSN NNN NN NIA AAAAAOOCOOM 
DWDWNA NEW $$ OOONAW EWN —$ O OONO MEW O OONOUEWN-O”O 


WAWILWNIAIAIARPIPOPONINPIPIPIPSTPINIPININPINIAINPINININININPIPONINININININID 4 A 9 9 OS SS St 


e's ! use SYSSOUTPYT. 

060 if clifpresent(aescribe('OUTPUT')) then 

060 if .anl$gb_interactive then 

0604 chScopy(10,uplit byte (*SYSSOUTPUT'), 

0605 ‘ *,.report_file_spec(len],.report_file_spec(ptrJ) 
0606 else : : : 

e434 cli$get_value(describe("OUTPUT'),report_file_spec); 

vets ! We go into a loop, once through for each object file or Library member. 
0611 loop ( 

061 Local : 

neiz local_described_buffer(resultant_file_spec,nam$c_maxrss); 
0615 status = anl$open_next_object_file(resultant_file_spec); 
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061 
oath exitif (not .status); 
Sh ! Prepare the file to receive the object analysis report. 
pe 1 ; an\$prepare_report_file(report_file_spec,resultant_file_spec,anlobj$_objheading); 
06 § ; ! Analyze the object file. 
0624 
0625 3 anl$object2(); 
0626 § ); 
Ros! 
0626 2 return; 
+24 e 
0630 1 end; 


-TITLE OBJDRIVE OBJDRIVE - Drive Analysis of Object Fi 


es 
IDENT \v04-000\ 
-PSECT SPLITS,NOWRT,NOEXE,2 
45 56 49 54 43 41 52 45 54 4E 49 sis 4 P.AAB: .ASCII peenrewes 


-BLKB 
00000008 QO00C P.AAA: .LONG 11 
00000000* 00010 «ADDRESS P.AAB 
54 55 50 54 55 4F 00014 P.AAD: .ASCII \OUTPUT\ 
QOO1A -BLKB 2 
00000006 Q001C P.AAC: .LONG 
sad ute: 00020 «ADDRESS P.AAD 
54 55 50 54 55 4F 24 53 59 53 00024 P.AAE: .ASCII \SYSSOUTPUT\ 
54 55 50 54 55 4F OQO02E P.AAG: .ASCII \OUTPUT\ 
00000006 00034 P.AAF: .LONG 6 
00000000° 00038 «ADDRESS P.AAG 


.PSECT $OWNS,NOEXE ,2 
00000 TYPE_FLAG: 


~BLKB = 32 
00020 RANGE: .BLKB 8 
00 00028 WITHIN_MODULE: 
-BYTE 0 
00029 -BLKB 5 

000000004 0002C vette ae > ore) 
000000004 0004C BYTE_TOTAL: 

LONG (C8) 
OOOOOOFF 0006C saeeesheedea (. SPEC: 
00000000" goer -ADDRESS REPORT_FILE_SPEC+8 

00074 -BLKB = 255 


-PSECT S$GLOBAL$,NOEXE.2 
00000 ANLS$GB_INTERACTIVE:: 
-BLKB 1 
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00 AX-11 Bliss-32 v4.0 
ANLOBJ$_OK wn aus. ANYTHING 
ANLOBJ$~DATAT 

ANLOBJ$— ~PRRORCOUNT 


ORNONE 
“ERRORS, ANLOBJS_EXEFIXA 
ANLOBJ$ EXEFIXAIM AGE 


LOBJS_EXEF IXALIW 
ANLOBJS_EXEF IXCOUNT 
ANLOBJS_EXEFIXEXTRA 
ANLOBJS_EXEF IXF IXED 
ANLOBJS_EXEFIXFLAGS 
ANLOBJS_EXEFIXG 
ANL OBJS$_EXEF IXGIMAGE 
ANLOBJ$_EXEF IXGLINE 
ANLOBJS_EXEFIXLIST 
ANLOBJ$_EXEF IXNAME 
ANLOBJ$_EXEF I XNAMEO 
ANLOBJS_EXEF IXP 
ANLOBJS_EXEFIXPSECT 
ANLOBJ$_EXEF I XUP 
ANLOBJ$_EXEF I XUPNONE 
ANLOBJS_EXEGST, ANLOBJS_EXEHDR 
ANLOBJ$_EXEHDRACTIVE 
ANLOBJ$_EXEHDRBLKCOUNT 
ANLOBJ$_EXEHDRCHANCOUNT 
ANLOBJ$_EXEHDRCHANDEF 
ANLOBJS$_ bie toe 
ANLOBJ$_EXEHDRDMT 
ANLOBJ$_EXEHDRDST 
ANLOBJ$_EXEHDRF ILEID 
ANLOBJ$_EXEHDRF IXED 
ANLOBJ$_EXEHDRFLAGS 
ANLOBJ$_EXEHDRGBL IDENT 
ANLOBJ$_EXEHDRGST 
ANLOBJ$_EXEHDRIDENT 
ANLOBJ$_EXEHDRIMAGE ID 
ANLOBJ$_EXEHDRISD 
ANLOBJ$_EXEHDRI SDBASE 
ANLOBJ$_EXEHDRISDCOUNT 
ANLOBJ$_EXEHDRISDFLAGS 
ANLORJ$"EXEHDRI SDGBLNAM 
ANLObJ$_EXEHDRISDN 
ANLOBJ$_EXEHDRISDPF CDEF 
ANLOBJS$S"EXEHDRISDPFCSIZ 
ANLOBJ$_EXEHDRISDTYPE 
ANLOBJ$_EXEHDRI SDVBN 
ANLOBJ$_EXEHDRLINKID 
ANLOBJ$_EXEHDRMATCH 
ANLOBJ$_E XEHDRNAME 
ANLOBJ$_EXEHDRNOPATCH 
ANLOBJ$_EXEHDRPAGE COUNT 
ANLOBJ$_E XEHDRPAGE DEF 
ANLOBJ$_EXEHDRPATCH 
ANLOBJ$"EXEHDRPATCHDATE 
ANLOBJ$"EXEHDRPRIV 
ANLOBJ$~EXEHDRROPATCH 
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ANLOBJ$_EXEHDRRWPATCH 
ANLOBJ$_EXEHDRS YMDBG 


ANLOBJ$_ INDMSGSEC 

ANLOBJ$_ INTERACT 

ANLOBJ$_ ete ANLOBJ$_OBJCPRREC 
ANLOBJ$_0B R 

ANLOBJ$_ ~OBJENV. ANLOBJ$_OBJEOMF LAGS 
ANLOBJ$_OBJEOMREC 

ANLOBJ$— OBIJEOMSEVABT 
ANLOBJ$~OBJEOMSEVERR 
ANLOBJ$_OBJEOMSEVIGN 
ANLOBJ$_OBJEOMSEVRES 


ANLOBJ$_OBJEOMWRE C 
ANLOBJ$_OBJF ADPASSME CH 
ANLOBJ$_OBJGSDENV 
ANLOBJ$_ OBJ GS DENVFLAGS 


ANLOBJ$~OBJGSDIDCMATCH 
ANLOBJ$_OBJGSD1DCOBJ 

ANLOBJ$_OBJGSDIDCVALA 
ANLOBJ$_ Mint rity 2) pee 


ANL OBJ$~OBJGTXREC 
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ANLOBJ$_OBJHDRIGNREC 


E 
ANLOBJ$~OBJSTATHEADING1 
ANL OBJ$_OBJSTATHEADING2 
ANLOBJ$_OBJSTATLINE 
ANLOBJ$_ “OBISYRBOL 


ANLOBJ$_OBJSYMFLAGS 
ANLOBJ$— ~OBJTIRARG INDEX 
ANLOB JTIRCMD 
ANLOBJ$— “eeitatkce 


OBJ$_ 
ANLOBJS"SEVERITY 


LOBJ$~EXEBADF IXUPI SD 
ANLOBJ$~EXEBADF I XUPVBN 
ANLOBJ$~EXEBADISDS1 
ANLOBJ$~EXEBADI SDT YPE 
ANLOBJ$~EXEBADMATCH 
ANLOBJ$~EXEBADPATCHLEN 


ey 
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-EXTRN 
-PSECT 


MOVAB 
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ANL OBJ$_E XEBADOBJ 
ANLOBJ$"EXEBADTYPE 
ANLOBJ$_ 
ANLOBJ 
ANLOBJ 


Pd 
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- 
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2 nnn 
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C3 bm ammmmmmemn 


ANC0B,$- 06 18ADPOP 


N RRES 
ANLOBJ$_OBJMHDBADRECS1Z 
ANLOBJ$_OBJMHDBADSTRLVL 
ANLOBJ$—~OBJMHDMISSING 
ANLOBJ$_OBJNONT IRCMD 
ANLOBJ$_OBJNOPSC 

ANLOBJ$_OBJNULLREC 


RR 
ANL $F ORMAT wHeX. ait Sonmat _LINE 
aloe R 


ANL$SREPORT 
ANLS$REPORT~P AGE 
CLISGET_VACUE, CLISPRESENT 


SCODES,NOWRT ,2 


ANLSOBJECT, Save ‘Re R3,R4,R5,R6,R7 > 0582 
REPORT_FILE_SPEC, R? ; 


aur 


JECT = Control 


0000° 


67 20 0000° 


000000006 
04 


00006 


00006 
0000v 


; Routine Size: 116 bytes, Routine 
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6 000000006 00 9€ 00007 
E FED CE 9E 00 
0000° F 9F 0001 
66 1 fF 01 
C 0 Y 1A 
0000" CF OF Bait 
66 } FB 00023 
1D 0 €9 4 3 
08 0000° CF 5? 00 
CF OA 2c 444 3 
046 87 00 
90 11 it 7 
DD 00039 1$: 
0000" CF OF 00038 
00 O02 FB 0003F 
6E FF «= BFC « GAR 00046 28: 
AE 08 AE YE O00GA 
5E DD 0004F 
CF 01 FB 00051 
38 50 DO 00056 
1 52 £9 00059 
00000000G 8F DD 0005¢ 
06 AE 9F 0006 
57 DD 0006 
CF 03 FB 00067 
CF 00 FB 0006C 
D3. 11 00071 
04 00073 3$: 
Base: $CODE$ + 0000 
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<SO6(SP), sb R6 


+ CLISPRESENT 
0; ANLSGB_INTERACTIVE 


- AAC 
#1, CLISPRESENT 
ANC $B ear le 


1$ 
REPORT _FILE_SPEC, 
ant Poni. FILE "Specs 


AT LISGET_V LUE 
niet RESULTANT FILE_SPEC 
RESULTANT _FILE SPEC+B, = 
RESULTANT_FILE~SPEC #4 


SP 
#1, ANLSOPEN_NEXT_OBJECT_FILE 
RO, STATUS 

STATUS, 33 

#ANLOBJ$_OBJHEAD ING 
RESULTANT. FILE_SPEC 


#3, ue. SPRE DIRE REPORT_FILE 
50. ANLSOBJECT2~ 
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1 : Bsbttl *ANLSOBJECT_POSITIONALS = Process Positional Qualifiers’ 
: 1 | Functional Description: 
7 This routine is called by the OBJINPUT module whenever it scans 
> 7% off the next file spec from the command Line. We need to process 
: : positional qualifiers. 
§ 1 ! Formal Parameters: 
1: none 
o 1! 
1 1°! Implicit Inputs: 
bees : } global data 
Se Implicit Outputs: 
Bree : global data 
eh 1 ' Returned value: 
peed} | — 
0650 1 | Side Effects: 
0651 1! 
Roe6 1 te 
o6se | 
3032 global routine aniSobject_positionals: novalue = begin 
0657 oie 1 byt 
all types: byte; 
o660 5 
gee! AA “ ob the gtd Pg: et fab te ries va t r are to be 
! analyzed. none are specified, we analyze all records. any are 
bees ; speci tied, we analyze only those specifies. NOTE that we always analyze 
sre: : module headers and end-of-module records, as weil as any invalid records. 
0 ali_types = not cli$present(describe('DBG')) and 
066 not cli$present(describe(*EOM')) and 
0668 not cli$present(describe('GSD')) and 
0669 not cli$present(describe(*LNK')) and 
70 not cli$present(describe("MHD')) and 
671 not cli$present(describe("TBT')) and 
bee not cli$present(describe('TIR")); 
pore chSfill(2x'ff*, Zallocation(type_flag),t pe flag? : 
675 type_flag obj $¢_dbg! = .all_types or clibpresent (describe('DBG')); 
pore type_flaglob $¢-95 ; = .all_types or cli$present(describe(*GSD")); 
067 type_flaglobj$c_(nk] = .all-types or cli$present (describe *LNK')); 
0678 type_flaglob)$c_tbt] = .all types or cli$present(describe('IBT')); 
st84 2 type_flaglobj$c_tir] = .all-types or cli$present(describe('TIR")); 
set 3 ! there used to be other positional qualifiers, but not any more. 
068 § return; 
0684 
0685 1 end; 
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-PSECT SPLITS,NOWRT ,NOEXE 2 


47 42 &% Oe P.AAL: “eet \DBG\ é 
0000 40 P.AAH: .LONG 3 
Bae * 00044 “ADDRESS P.AAI 3 

4F 4 0048 P.AAK: ASCII \EOM\ é 
004 -BLKB 


8 
* teens aed P.AAJ: .LONG 
Pee: wae fi 00 ADDRESS P.AAK 
0054 P.AAM: ASCII \GSD\ 
0057 -BLKB 1 


00000003 00058 P.AAL: .LONG 3 3 

00000000" 0005 “ADDRESS P.AAM : 

46—E 4C 00 P.AAO: .ASCI] \LNK\ : 
006 “BL KB 1 

00000003 00064 P.AAN: .LONG 3 3 

sae t ae 2 0068 “ADDRESS P. AAO 3 

44 468 40 0006C P.AAG: ASCII \MHD\ : 3 
0006F -BLKB 1 

00000003 00070 P.AAP: .LONG 3 3 

00000900" 00074 “ADDRESS P.AAQ : 

54 42 54 00078 P.AAS: .ASCI] \TBT\ ; 
00078 “BLK KB 1 

00000003 O007C P.AAR: .LONG 3 3 

00000000* 00080 “ADDRESS P. AAS : 

52 49 54 00084 P.AAU: ASCII \T ir : 
00087 *BLKB. 

00000003 0088 P.AAT: .LONG 3 3 

Poet aes a 8C “ADDRESS P. AAU 3 

42 0090 P.AAW: ASCII \DBG\ : 
00093 -BLKB 1 

00000003 00094 P.AAV: .LONG 3 F 

Pee sae st 00098 “ADDRESS P. AAW : 

O009C P.AAY: ASCII \GSD\ 3 
0009F -BLKB 1 

00000003 OO0AO0 P.AAX: .LONG 3 : 

00000000* Q00A4 “ADDRESS P.AAY : 

48 4E 4C OOOAB P.ABA: .ASCII \LNK\ 3 
QOOAB *BLKB 

00000003 OOOAC P.AAZ: .LONG 3 3 

ve ¢ ae? 00080 “ADDRESS P.ABA 3 

54 42 54 00084 P.ABC: ASCII] \TBI\ : 
087 -BLKB 1 

90900003 00B8 P.ABB: .LONG 3 : 

00000000" 0008C “ADDRESS P. ABC 3 

52 49 54 OO0CO P.ABE: <ASCII \TIR\ : 
00c3 *BLKB 1 

00000003 O000C4 P.ABD: .LONG 3 ; 

00000000* 000C8 “ADDRESS P.ABE i 


-PSECT S$CODES,NOWRT,2 
03FC 00000 -ENTRY ANLSOBJECT_POSITIONALS, Save R2,R5,R4,R5,- ; 0655 


& 
vou-000" SOUR G BOSH GORE see!, SUUMGE tees gue TESSOTIORE TERED MGI PdescddoutioZ8 teat 


R6,R7,RB_RO : 

9 7 moves TyPe FLAG, Rg ; 

§ i MOVAB P.AAR, R : 

MOVAB CLISPRESENT, R7 ; 
PUSHL R 3; 0666 

? CALLS) #1, Cy ISPRESENT : 

3 MOVL RO, R : 
OC OCA PUSHAB P,AAJ 3; 0667 

4 CALLS #i, CLISPRESENT : 

BISL2 R35, R : 
18 PUSHAB P.AAL : 0668 

7 CALLS #1, CLISPRESENT : 

; MOVL RO, R ; 

BISL2 R2, R : 
. ae PUSHAB P.AAN 3 0669 

? 1 CALLS #1, CLISPRESENT : 

$ ° MOVL RO, R : 

BISiL2 RS, R : 
30 AB PUSHAB P.AAP ; 0670 

? 1 CALLS #1, CLISPRESENT : 

; MOVL RO, R ; 

BISL2 R2, R : 
3c C«‘«iA PUSHAB P.AAR ; 0671 

7? } CALLS #1, CLISPRESENT : 

$ 9 MOVL RO, R : 

5 BISL2 R3, R : 
48 AB PUSHAB P.AAT 3; 0672 

? 91 CALLS #1, CLISPRESENT 3 

0 3 BISL2 R2, s 
t 5 MC RO, ALL_TYPES 3 0671 
20 FF SF 6€ Se MOVC #0, (SPT, #255, #32, TYPE_FLAG 3 0674 
54 AB PUSHAB P.AAV 3 0675 

67 1 CALL #1, CLISPRESENT : 

52 50 6 B1SB ALL_TYPES, RO, R 3 

69 01 04 5 INSV -R2, #4, #1, TYPE_FLAG ; 
60 A PUSHAB P.AA : 0676 

67 1 CALL #1, CLISPRESENT : 

52 0 6 B1SB ALL TYPES RO, R2 : 

69 01 01 5 INSV - R2, "#1, Wi, TYPE_FLAG ; 
6C =6AB OOF (000 PUSHAB P.AAZ 3 0677 

67 01 FB 00088 CALL #1, CLISPRESENT 3 

ie 0 2 89 000 B1SB ALL. Tyres RO, R2 : 

69 0 06 FO 0009 INSV RO, #6, #1, TYPE_FLAG ; 
78 «=6AB «(OF 0009 PUSHAB P.A ; 0678 

67 9} FB OOO9A CALL si, CLISPRESENT ; 

52 9 89 00090 B1SB ALL TYPES RO, R2 ; 

6y 0 0 52 «FO QA! INSV RO, "#5, WL, TYPE_FLAG F 
0084 CB 9F O00A6 PUSHAB P, : 0679 

67 91 a OOAA CALL #1, CLISPRESENT $ 

52 g 6 89 O000AD BISB ALL_TYPES, RO, ; 

69 01 0 52 F0 90081 INSV —-R2, "#2, WE, TYPE_FLAG ; 
04 00086 RET ; 0685 


3 Routine Size: 183 bytes, Routine Base: SCODES + 0074 
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Esbrtl *ANLSOBJECT2 = Generate Object Analysis Report’ 


! Functional Description: 

This routine is responsible al 5 pothas Bi the analysis report 
for a single object file. The ect file is ready to read, and the 
report file is ready to write. 


oO 


ooo 
wn 


formal Parameters: 
none 


Implicit Inputs: 
glob 


SFSESSSELESE 


PRE EE BB FAWN NNW WWW NII PPOPIPOPOPPIPIPUPNUD 2 tt 0 


Side Effects: 


al data 

Implicit Outputs: 
4 global data 
7 Returned Value: 
7 none 
7 
7 
7 


global routine aniSobject2: novalue = begin 


local 
status: long, 
record_number: long, 
record_dsc: descriptor 
scanp: ref block(, ytel, 
type: byte; 


! This is the main record analysis loop. We go through once for each record ~ 
! in the object file. 
incru record_mumber from 1 do ( 


! Get the next object record. If we reach end-of-file, we're done 
! with this loop. 


status = anl$get_object_record(record dsc); 


WAIPOPOPOROPURINUNUIOND 2 OOO 


exitif (not status); 
' See if there is a type code in the record. If not, that's an error. 


PWN — 00D WO VF WN | O OOO Vw 0 0O@ 


scanp = .record_dsc(ptr]; 
if N ceht destla j gtru 0 then ( 


' Now we know we have a record type, so we can see if the 
' user wants to analyze it. If so, select on the type code. 
! If not, just ignore it. 


CDOSOSOCOCOCOCOSCOOOCOCOOOCOSOSSOOSOOCSCOOOOOOOOOO 
SN SSS NSS NN NN SSS 


EE AAA nw 


mC OCOnNOw 


if .type_flagl.scanplobj$b_rectyp]] then ( 


~ 


anl$format_fiex(1,record_dsc);); 
tes; 


! Make sure that this record isn't longer than the 
! maximum specified in the module header. 


an\$object_record_size(.record_dscllen]); 


PEAR AEL SAA nnr098 
WW "OC O@wovrwn—oO 
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JDR OBJDRIVE = Drive Analysis of Object Files ese -1984 23:38:0 AX-11 Bliss-32 V4.0-74 P 16 
ree ti AN: SOB JECT2 = Generate Object Analysis Report 14-Sep-19 4 19:89:08 LANALYZ SRE oBsokiveo85;1 ett (5) 
1 743 electoneu_.scanplobj$b_rectyp] of set 
18 ree fob} c hdr): Ditsbysct hirl. record munber.recerd.docts 
1? o Cobj$c_gsd): anl$object_gsd(.record_number,r*cord_dsc); 
9 74 Cobj$c_tir, 
18 74 ob $c.dbg 
4 obj$c_tb 4: anl$object_tir(.record_ number ,record_dsc); 
1 7 Cobj$c_eom, 
§ 4 obj$c_eomw):  anl$object_eom(.record_number,record_dsc); 
3 4 Cobj$c_ink): anl$object_ink(.record_ number ,record_dsc); 
$ 4 Cotherwise): (anl$format_error(anlobj$_objbadtype,.record_number,.scanplobj$b_rec 
3 
9 
0 
2) 
33 
34 
35 


! There was no record type. Tell the user. 


anl$format_error(anlobj$_objnullrec,.record_number) ; 
anl$report_line(-1); 
anl$report_line(-1); 


COOCOSOCOOSOCOCOSOCOSOSOCOSOSOSOSSCOOCSOCOOSCOCOOCSOOOCOCOOCOOOOCOCOOCOOO 


SN NS NS NS NS SS SS SS SSS SS SSS SS NS NS SS SS 


3 ¢ ! Skip a couple of Lines to make it look nice. 
3 8 anl$report_line(-1); 
; 4 anl$report_line(-1); 
4 1 : If this is an interactive session, let's find out if 
4 ¢ ! the user wants to continue or quit. 
4 4 if .anl$gb_interactive then 
m exitif (not anl$interact()); 
4 7 ); 
8 
9 ) else ( 
0 
4 
5 
6 
7 
8 
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v04-000 ANLSOBJECT2 = Generate Object Analysis Report 14-Sep-1984 11:52:46 ANALYZ.SRCJOBJDRIVE.832;1 . (6) 
; 3 0789 § : We have read all the records of the object file. If we are still within 
; 360 0790 : @ module, then an end-of-module record is missing. We have to force one 
3 °} 449: ! so that various error checks can be made. 
; 079 if .within_module then ( 
; 364 0794 an($format_error(anlobj$_objeommissing); 
; 965 079 ; anl$object_eom(); 
; 566 0796 within _module = false; 
: 36r 0797 2); 
> 368 0798 < 
; 369 0799 2 ! Now we can print the summary statistics on a new page. 
: Srp 0800 § 
5 Bri 0801 anl$report_page(); 
5; sre 0802 2 anl$object_statistics(); 
: Sys 0805 2 
: 74 0806 2 ! Tell the user how many errors were uncovered. 
; 375 0805 2 
:” 3re 0806 2 anl$error_count(); 
see 0807 2 : : : 
; 378 0808 2 ! Finally, print the command Line that was used to generate the report. 
; of? 0809 2 
: 380 0810 3 begin 
; 381 0811 3 local 
; 382 0812 3 local_described_buf fer (command_lLine,80); 
s 385 Osis 3 : 
; 384 0814 3 cli$get_value(describe(*$LINE*),command_Line); 
3; 385 0815 3 anl$format_line(0,0,anlobj$_anything,command_Lline); 
:; 586 0816 2 end; 
is 387 0817 2 
3 «4388 0818 2 return; 
3. 389 0819 2 
;. 0820 1 end; 
-PSECT $PLITS,NOWRT,NOEXE,2 
45 4E 49 4C 24 OOOCC P.ABG: ASCII \SLINE\ i 
0000 -BLKB 3 
00000005 Q00D4 P.ABF: .LONG 5 : 
00000000* 00008 -ADDRESS P.ABG : 
-PSECT $CODES,NOWRT,2 
007c 00000 ENTRY ANLSOBJECT2, Save R2,R3,R4,R5,R6 ; 0710 
56 0000G CF 9E 00002 MOVAB ANLSFORMAT_ERROR, R6 : 
55 0000G CF 9€ 00007 MOVAB ANLSREPORT_LINE, RS ; 
25 AO AE 9€ 0000C MOVAB <-96(SP), S : 
5 01 00 00010 MOVL #1, RECORD_NUMBER : 0723 
58 AE 9F 000135 1$: PUSHAB RECORD_DS ; 0728 
00006 CF 01 FB 00016 CALLS #1, ANCS$GET_OBJECT_RECORD ; 
54 50 DO 00018 MOVL RO, STATUS : 
03 54 £8 OOOIE BLBS STATUS, 2$ ; 0730 
001 31 00021 BRW 1 : 
52 5( AE DO 00024 2%: MOVL RECORD_DSC+#4, SCANP : 0734 
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ube ANLSOBJECT2 = Generate Object Analysis Report 14-Sep-1984 1 28:00 ANALYZ  SRETOBIDNIVE 03551 ’ (6) 
58 AE BS 00028 TSTw RECORD_DSC 3 0735 
03 12 $0038 BNEQ 3$ : 
OOA9 3} 0020 BRW 13$ : 
50 $¢ A 000 9 3$ MOVZBL (SCANP), RO : 0741 
03 0000" <¢F 5 59 00 BBS RO, TYPE_FLAG, 4$ : 
0084 31 00039 BRw 14$ : 
0c 12 ts 4$: NEQ 5$ : 0744 
58 AE «OOF ~O003E PUSHAB RECORD_D : 
53 DD 9006) PUSHL RECORD NUMBER : 
0000G CF 02 FB 00043 CALLS #2, ANCSOBJECT_HDR 3 
68 11 00048 BRB 12$ : 
01 62 91 Boon 5$ CMPB (SCANP), #1 : 0746 
OC 12 0004D BNEQ 6$ : 
SB AE «OOF O004F PUSHAB RECORD_DSC ; 
53 dd 00052 PUSHL RECORD NUMBER $ 
0000G CF 02 FB 00054 CALLS #2, ANCSOBJECT_GSD 3 
5A 11 00059 BRB 12$ : 
02 62 91 00058 6$ CMPB (SCANP), #2 3; 0748 
OA 13 OOOSE BEQL 7$ : 
04 62 91 00060 CMPB (SCANP), #4 : 
11. 1F 00063 BLSSU 8$ 3 
05 62 91 00065 CMP (SCANP), #5 : 
OC 1A 9006 BGTRU 8$ : 
58 ag 9F OO06A 7$: PUSHAB RECORD_ : 0750 
53 DD 0006D PUSHL RECORD-NUMBER ; 
0000G CF 02 FB O006F CALLS #2, ANCSOBJECT_TIR i 
3F 11 00074 BRB 12$ : 
03 62 91 00076 8$: CMPB (SCANP), #3 : 0752 
05 13 00079 BEQL 9 : 
07 62 91 00078 CMPB (SCANP), #7 : 
OC 12 OOO7E BNEQ 10$ : 
58 AE 9F 00080 9$: PUSHAB RECORD_DSC 3 0753 
53 DD 00083 PUSHL RECORD-NUMBER ; 
0000G CF 02 FB 00085 CALLS #2, ANCSOBJECT_EOM ; 
29 «#11 OQOOB8A BAR 1 Z 
06 62 91 O008C 108: CMPB (SCANP), #6 : 0755 
OC 12 Q008F BNEQ =: i 
58 Ag 9F 90091 PUSHAB RECORD_DSC : 
53 DD 00094 PUSHL RECORD-NUMBER ; 
0000G CF 02 FB 00096 CALLS #2, ANCSOBJECT_LNK : 
18 11 00098 BRB 12$ : 
7E 62 9A 0009D 118: MOVZBL (SCANP), =-(SP) : 0757 
53 DD OO0A0 PUSHL RECORD_NUMBER 3 
00000000G 8F DD 000A2 PUSHL #ANLOBJ$_OBJBADTYPE : 
66 03 FB O00A8 CALLS #3, ANLSFORMAT_ERROR : 
58 AE 9F OOOAB PUSHAB RECORD_DSC : 0758 
01 DD OOOAE PUSHL #1 : 
0000G CF 02 FB 000B0 CALLS #2, ANLSFORMAT_HEX 3 
7£ 58 AE 3C 00085 12$: MOV2WiL RECORD DSC, -(SP) : 0764 
0000G CF 01 FB 00089 CALLS #1, ANCSOBJECT_RECORD_SIZE : 
7E 01 CE O00BE MNEGL #1, -(SP) ; 0768 
65 01 FB 000C1 CALLS #1, ANLSREPORT_LINE ; 
7£ 01 CE 000C4 MNEGL #1, -(SP) ; 0769 
65 01 FB 000C7 CALLS #1, ANLSREPORT_LINE 3 
21 0000" CF €9 OOOCA BLBC ANL$GB_INTERACTIVE, 14% : 0774 
0000G CF 00 FB OOOCF CALLS #0, ANCSINTERACT : 0775 
19 50 €8 00004 BLBS RO, 14% ; 


Be n1984 3: 


OBJDRIVE OBJDRIVE = Drive Analysis of Object Files 1 :00 AX-11 Bliss-32 V4.0-74 
v046=-000 ANLSOBJECT2 = Generate Object Analysis Report 14-Sep-1984 33 246 ANALYZ.SRCJOBJORIVE.B32;1 
I¢ 11 00007 BRS 15$ 
53 DD 00009 138: PUSHL RECORD_NUMBER 
000000006 + DD 00008 PUSHL #ANLOBJ$_OBJNULLREC 
$6 2 §B OO0E1 CALLS #2, ANLSFORMAT_ERROR 
3 01 CE O00ES MNEGL #1, (SP) 
$ 01 FB 000E7 CALLS #1, ANLSREPORT_LINE 
01 CE QOOEA MNEGL #1. =(SP 
6 0i FB OO0ED CALLS #1, ANLSREPORT_LINE 
53 6 ROOF 14$: INCL RECORD_NUMBER 
FFIE 31 OOOF BRw 1$ 
12 0000" cF €E9 OQOOFS 15$: BLBC WITHIN_MODULE, 168 
O00000000G 8F DD Boor PUSHL #ANLOBJ$_OBJEOMMISSING 
6 01 FB 3109 CALLS #1, ANLSFORMAT_ERROR 
0000G CF 00 FB 0010 CALLS #0, ANLSOBJECT_EOM 
0000" CF 94 00108 CLRB = WI THIN_MODUL 
00006 C 0O FB 0010C 168: CALLS #0, ANCSREPORT_PAGE 
0000v CF 00 FB 00111 CALLS #0, ANLSOBJECT STATISTICS 
0000G CF 00 FB 00116 CALLS #0, ANLSERROR_COUNT 
6E 50 8F 9A 0011B MOV7BL #80, COMMAND_CINE 
06 AE 08 AE YE O011F MOVAB COMMAND_LINE?8, COMMAND _LINE +4 
SE DD 00124 PUSHL p 
0000" CF 9F 00126 PUSHAB P.ABF 
000000006 00 02 FB BR St CALLS #2, CLISGET_VALUE 
5E DD 00131 PUSHL SP 
00000000G 8F DD 00133 PUSHL #ANLOBJ$_ANYTHING 
7E 7C 00139 CLRO -(SP) 
0000G CF 04 FB 00138 CALLS #4, ANLSFORMAT_LINE 
04 00140 RET 


; Routine Size: 321 bytes, Routine Base: S$CODES + 0128 
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Zsbttl "ANLSOBJECT_RECORD_LINE = Print Record Lines’ 
‘ee 


Functional Description: : = ; 
This routine is responsible for es the major record line 
for each object record to be analyzed. Because of this, the 


routine hy @ good summary of the object file. Thus it is also 


OOoCCoCoCooO F 


1 

fea 

4 i 

ae 

! 

5 ; responsible for some simple checking of the order of records and 
0899 some overall statistics. 
0830 ! Formal Parameters: : 
0831 : record msg The message code for the major record Line. 
Be ¢ : record_number The number of this record. 
' : the_rectord Address of descriptor of the record. 
0835 ! Implicit Inputs: 
bees ; global data 
0837 : ren 
0838 ! Implicit Outputs: 
0839 : global data 
0840 : 
0841 ! Returned Value: 
084 ‘ none 
084 aoe 
0844 ! Side Effects: 
0845 : 
0846 !ee 
0847 
0848 ; ; : 
Beep global routine anl$object_record_line(record_msg,record_number,the_record): novalue = begin 
0851 2 bind : 
et record_dsc = .the_record: descriptor; 
0854 local 

scanp: ref block(,bytel, 

0856 module_header: byte; 
0857 
0858 : 
0859 : The record is guaranteed to be at least one byte long. Therefore we can 


! always print the record Line. 
anl$format_line(4,0,.record_msg,.record_number,.record_dsc(len]); 


! Now we want to check a Little bit of the overall structure of the module 
: Split up depending upon whether we are within a module or not. 


scanp = .record_dsc(ptr); 
module_header = false; Z 
if oneargycbiSe rectye) eqlu obj$c_hdr then 
if .record_dscllen] gequ 2 then ; 
if’ .scanplob)$b_subtyp] eqlu obj$c_hdr_mnd then 
module_Reader = true; 


if not .within_module then ( 


! We are not within a module, so this had better be a module header. 
' If not tell the user. 


Oo 
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w 
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458 


ze 


CODD@Dwevw~ 
OWONAO UE Ww -O OM S 
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wr 
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001C 00000 -ENTRY ANLSOBJECT_RECORD_LINE, Save R2,R3,R4 
54 0000" CF 9E 00002 MOVAB WITHIN _MODOLE, R4 
53 0C AC DO 00007 MOVL THE RECORD, R$ 
7E 63 3C 00008 MOVZ2WL (R3T, =(SP) 
7E 04 AC 7D OOOOE MOVQ RECORD_MSG, =(SP) 
7E 04 7D 00012 MOVQ #4, -(5P) 
0000G CF 05 FB 00015 CALLS #5, ANLSFORMAT_LINE 
50 04 A3 DO OOOIA MOVL 4(R3), SCANP 
51 94 OOOTE CLRB MODULE _HEADER 
52 60 9A 00020 MOVZBL (SCANPY, R2 
0D 12 00023 BNEQ 1$ 
02 63 61 BR0s2 CMPW (R3), #2 
0&8 1F 00028 BLSSU.s‘'1$ 
01 AO 95 OO02A TST 1 (SCANP) 
03 12 0002D BNEQ 1$ 
51 01 90 O00¢F MOVB #1, MODULE_HEADER 
13 64 €8 000 : 1$: BLBS § WITHIN_MODOLE, 3$ 
08 51 €8 0003 BLBS MODULE HEADER, 2$ 
00000000G 8F DD ab PUSHL #ANLOBJ$_OBJMHDMISSING 
0000G CF 01 FB 0003 CALLS #1, ANLSFORMAT_ERROR 
64 01 90 00045 2%: MOVB #1, WITHIN_MODOLE 
¢8 11 00046 BRE 7$ 
OD 1 €9 00048 3$: BLBC MODULE_HEADER, 4$ 
00000000G 8F DD 00048 PUSHL M#ANLOBJ$_OBJEOMMISSING 
0000G CF 01 FB 00051 CALLS #1, ANLSFORMAT_ERROR 


ate 
VE = Drive anol seis of Object Files 15-Sep-1984 $7228:09 ome Bliss-32 v4.0-74 
JECT_RECORD_LINE = Print Record Lines 16-Sep-1984 11:52:46 ANALYZ.SRCJOBJDORIVE .B32;1 
if not .module_header then : é 
an $format_error(anlobj$_objmndmissing); 
within module = true; 
) else ( 
! We are within a module, so this had better not be a module header. 
: Jf it is, tell the user. If it is an end of module record, then 
! we are done with the module. 
if .module header then ‘ ; 
: an($format_error (anlobj$_objeommissing) 
else 
4 within module = not eyes ped | Senta g, eqlu obj$c_eom or 
3 -scanplobj$b_rectyp] eqiu obj$c_eomw); 
; ! Now we can collect some statistics. for each record type, we will count 
§ ! the number of such records and add up the number of bytes. 
increment (record count(.scanplobj$b_rectyp]]); : 
byte_totall.scanplobj$b_rectypJ] = .Byte_totall.scanplobj$b_rectyp]] + .record_dscllen); 
2 return; 
2 
1 end; 


mn 


OB JDRI VE OBJDRIVE = ive Aral lysis of Object Files A WR. $ep-1984 23:38:00 AX-11 Bliss-32 v4.0-742 a 2 
iret ty ANL SOBJECT_R “LING = Print Record Lines 1a=$ep-1984 73 :52:46 ANALYZ.SRCJOBJORIVE .832;1 — (3 
18 11 0005 Beg 7$ : 
51 Dé 00058 4$ CLRL R1 ; 0892 
03 5 91 4 Ft CMPB R2, #3 3 
02 12 0005p BNEQ 5$ : 
51 06 0005 INCL a1 F 
50 D4 Bn00) 5$ CLRL RO : 0893 
07 52 91 00063 (MPR Ree #7 3 
02 12 0006 BNEQ 6 : 
50 D6 000 INCL RO : 
50 51 § 006A 6$: BISL2 Ri. RO : 
64 5 906p MCOMB RO, WITHIN MODULE : 0892 
04 Ads 6 900 0 7$: INCL RE ORD OUNTER2 : 0899 
59 : C 00074 MOVZ2WL (R : 0900 
26 Abs 0 ¢6 00077 ADDL2 RO, BYTE _TOTALER2] ; 
4 0007¢ RET 3 0904 


3 Routine Size: 125 bytes, Routine Base: S$CODE$ + 026( 
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CT_STATISTICS = nt Summary Statistic 14-Sep-19 ANALYZ.SRC JOBJDRIVE .832;1 
1 Bsbttl "ANLSOBJECT_ STATISTICS = Print Summary Statistics’ 
i Funct onal Description: 


his routine is called to print the summary statistics with 
record counts and byte totais. 


4 § 
R ad j : ¢ = = : : - oe -0- 
erit Drive Analys 3.9 Object Files 15-Sep 138s $333 00 _ 11 _Bliss-32 v4.0-74 Page Rt 
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Formal Parameters: 
none 

Implicit Inputs: 
global data 


Implicit Outputs: 
global data 


SISSSSSSSS 
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Returned Value: 
none 


Side Effects: 


global routine ani$object_ statistics: novalue = begin 


SSSSSSS3SSSSS939 


own 
type_msg: eae Carbon ine Peer get yoe' ones initial 
uplit byte(Zascic ‘HDR"), 
uplit byte(Zascic ‘'GSD"), 
uplit byte(Zascic ‘TIR'), 
35 uplit byte(Zascic ‘EOM"), 
0936 uplit byte(Zascic ‘'DBG"), 
0937 uplit byte(Zascic ‘TBT"), 
uplit byte(Zascic ‘LNK"), 
0939 uplit byte(Zascic “EOMW')); 
0940 
0941 local ‘ 
bast i: long, 
094 total_record_count: long, 
0944 total _byte_total: long; 
0945 
0946 - ; 
+44 ! first we print some heading Lines. 
0949 ant $format_line(0,0,anlobj$_objstatheading!); 
0950 anl$report—Line(0);: ‘ : : 
0951 anl$format_lLine(0 6b aniobj$_objstatheading2); 


anl$report~line(0); 


! Now we loop through the statistics vectors and print a line for each one. 
! We also total the record count and byte total. 


total record count = total_byte_totai = 0; 

incru i from 0 to obj$c panrectyp go : : : : i 
an\$format_lineT0,0,anlobj$_objstatline,.type_msgl.iJ],.record_countl(.i],.byte_totall.il]); 
total_record count = .total_record count + .record_countl.i); 
total“byte_total = .total “byte total + -byte_totall.id; 


vos-000" ANLSOBJECT STATISTICS’ Print. summary Statistic seer 7:38:08 LanaLez°sne Soaspeive.0391 tee 
ds 


: 38 
! Now we can print the totals. 


; 8 208 anl$report_line(0) 

3 4 % an\$format_Line(0 6, anlobj$_objstattotal,.total_record_count,.total _byte_total); 
; 540 § ani $report_line( ps 

: * 34 ani $report_Line( 

; tt 044 ! Finally, clear the statistics vectors for the next module. 

: 45 037 ch$fill(%x°00", Lallocation(record_count), record count); 

; se bo chSfiLL(2x'00", Zallocation(byte_tétal), byte_total); 

: $48 097 return; 

; 549 097 


-PSECT SPLITS,NOWRT ,NOEXE,2 


52 44 48 03 OOODC P.ABH: ASCII <3>\HDR\ ; 
44 53 47 083 OQOOEO P.ABI: ASCII <3>\GSD\ : 
52 49 54 03 OOOE4 P.ABJ: ASCII] <3>\TIR\ : 
4D 4F 45 03 OOOE8 P.ABK: ‘ASCII <3>\EOM\ : 
47 42 464 03 OOOEC P.ABL eASCII <3>\DBG\ : 
54 42 54 083 OOOFO P.ABM: <ASCI] <3>\TBT\ : 
4B 4E 4C 03 OOOF4 P.ABN ASCII <3>\LNK\ : 
57 46D GF 45 04 OOOFB P. eASCII] <4>\EOMW\ s 
-PSECT SOWNS,NOEXE,2 
00173 .BLKB 
00000000" 00000000" 00000000" 00000000* 00000000" 00000000° 00174 TYPE_MSG: 
-ADDRESS P.ABH, P.ABI, P.ABJ, P.ABK, P.ABL, = j 
00000000* 00000000° 0018 P.ABM, P.ABN, P.ABO ; 
| 
-PSECT S$CODES,NOWRT,2 
O1FC 00000 SENTRY ANL SOBJECT_ STATISTICS, Save R2,R3,R4,R5,R6,=; 0928 
: 0000G CF 9€ 0000 MOVAB ANL $F ORMAT LINE, R8 : 
of 00006 CF 9E 0000 MOVAB ANL SREPORT ~ “LINE, R? ; 
0000" CF 9E O000C MOVAB BYTE_T R6 : 
000000006 af DD 00011 PUSHL #ANL OBIS *OGJSTATHEAD ING! > 0949 
E 7C 00017 CLRO (SP) : 
ra 03 FB 00019 CALLS #3, ANLSFORMAT _LINE : 
7E D4 O00IC CLRL -(§P) ; 0950 
67 1 FB OO0lE CALLS #1, ANLSREPORT_LINE : 
000000006 &F bo 0021 PUSHL #ANL OBIS ROB STRTHEADING2 : 0951 
§ € 00027 CLRO (SP) ; 
68 : FB 00029 CALLS #3 ANL $F ORMAT_LINE 
E D4 00C2C CLRL (Sp) : 0952 
67 01 FB OO02E CALLS rb ANL SREPORT_L INE j 
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; 7¢ CLRO TOTAL _BYTE_TOTAL : 0957 
D4 CLRL : 0958 
DD 00035 18: PUSHL BYTE pecguaT 3 0959 
g 642 DD 000 PUSHL RECORD C 1) 3 
01 C642 DD ¢ PUSHL Tye nie : 
000000006 gf b0 0041 PUSHL ANLOBJ$_OBJSTATLINE 3 
€ 7 Opee CLRO =(3P) : 
06 F 49 CALL ANL SF ORMA : 
4 £0 A642 C¢ 4c ADDL RECORD D COUNT It, INE TAL RECORD_COUNT ; 0960 
3 6642 CO 0005 ADDL BYTE_TOTALCII, fOTAL BYTE_TOTAL 3; 0961 
52 06 323 INCL ; 0958 
07 $2 D1 9003 CMPL | a7 : 
09 18 A BieGu 1§ 3 
7E D4 0005C CLRL ~ (SP) 3 0966 
67 91 te 00056 CALLS ANLSREPORT_LINE : 
3 po 9006 PUSHL voter _BYTE_TOTAL : 0967 
54 DD 00063 PUSHL TOTAL”RECORD C 3 
000000006 gf b0 80062 PUSHL ary" J$ “OB ISTAT TOTAL : 
4 C 68 CLRO P) ; 
68 9 FB 82895 CALLS Pe ANL SF ORMAT_LINE r 
— D4 00070 CLAL «(5p > 0968 
67 01 FB 0007 CALLS ANL SREPORT_LINE 3 
7E D4 0007 CLAL oie + 0969 
67 01 8B 00077 CALL #1, ANLSREPORT INE 3 
20 00 6€ - 00 2c BOO 7A move #0, (SP), #0, 932, RECORD_COUNT 3 0973 
20 00 6E o 2c 49 MOVCS #0, (SP), #0, #32, BYTE_TOTAL 3; 0974 
04 00087 RET ; 0978 
3 Routine Size: 136 bytes, Routine Base: S$CODE$ + 02E9 
iz $51 0979 1 
is 352 0980 0 end eludom 
PSECT SUMMARY 
Name Bytes Attributes 
$GLOBAL$ 1 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SOWNS 404 NOVEC. WRT. RD .NOEXE.NOSHR, LCL. REL. CON.NOPIC.ALIGN(2) 
SPLITS g33 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
$CODES B81 NOVEC.NOWRT. RD. EXE.NOSHR. LCL. REL. CON.NOPIC.ALIGN(O) 
; Library Statistics 
é eeeeeecee Symbols aan ee Pages Processing 
. File Total Loaded Percent Mapped ime 
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-$255S0UA28: (SVSL IBISTARLET.L52;1 9776 23 0 581 00:01.0 
; COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:OBJDORIVE/OBJ=OBJ$:OBJDRIVE MSRC$:0BJDRIVE /UPDATE=(ENH$:0BJDRIVE) 
; Size: 5 658 data bytes 
Run Time: 
Elapsed Time: 
Lines/(CPU Pin: at 
my th as 


Used: pages 
pee! B na r a7? page 


